home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tool_inc.zip
/
ERRMSG.INC
< prev
next >
Wrap
Text File
|
1989-07-12
|
2KB
|
80 lines
(*
* Copyright 1987, 1989 Samuel H. Smith; All rights reserved
*
* This is a component of the ProDoor System.
* Do not distribute modified versions without my permission.
* Do not remove or alter this notice or any other copyright notice.
* If you use this in your own program you must distribute source code.
* Do not use any of this in a commercial product.
*
*)
(*
* return error message based on tpas 4.0 runtime error codes
* s.h.smith, 5-jan-88 (6-jan-88)
*
*)
function errormsg(code: integer): string;
var
class: string;
msg: string;
begin
case code of
1..99: class := 'DOS';
100..149: class := 'I/O';
150..199: class := 'CRITICAL';
200..249: class := 'FATAL';
else class := 'UNKNOWN';
end;
case code of
2: msg := 'File not found';
3: msg := 'Path not found';
4: msg := 'Too many open files';
5: msg := 'File access denied';
6: msg := 'Bad file handle';
12: msg := 'Bad file access code';
15: msg := 'Bad drive number';
16: msg := 'Can''t remove current dir';
17: msg := 'Can''t rename across drives';
100: msg := 'Disk read error';
101: msg := 'Disk write error';
102: msg := 'File not assigned';
103: msg := 'File not open';
104: msg := 'File not open for input';
105: msg := 'File not open for output';
106: msg := 'Bad numeric format';
150: msg := 'Disk is write-protected';
151: msg := 'Unknown unit';
152: msg := 'Drive not ready';
153: msg := 'Unknown command';
154: msg := 'CRC error in data';
155: msg := 'Bad drive request structure length';
156: msg := 'Disk seek error';
157: msg := 'Unknown media type';
158: msg := 'Sector not found';
159: msg := 'Printer out of paper';
160: msg := 'Device write fault';
161: msg := 'Device read fault';
162: msg := 'Hardware failure';
200: msg := 'Division by zero';
201: msg := 'Range check';
202: msg := 'Stack overflow';
203: msg := 'Heap overflow';
204: msg := 'Bad pointer operation';
205: msg := 'Floating point overflow';
206: msg := 'Floating point underflow';
207: msg := 'Bad floating point operation';
208: msg := 'Overlay Manager not initialized';
else str(code,msg);
end;
errormsg := class + ': ' + msg;
end;